﻿Imports System.Xml
Public Class frmLogin

    Private Sub frmLogin_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If Not ProbarConexion(My.Settings.MiConexion) Then
            frmConfig.Show()
            Close()
        End If
    End Sub

    Private Sub btnEntrar_Click(sender As Object, e As EventArgs) Handles btnEntrar.Click
        If txtUser.Text.Trim = Nothing Then
            txtUser.Focus()
            Exit Sub
        End If

        If txtPass.Text.Trim = Nothing Then
            txtPass.Focus()
            Exit Sub
        End If

        If Not eAPPCA.Login(txtUser.Text, SHA1(txtPass.Text)) Then
            Dim s As String = "Error al iniciar sesión. Posibles razones:" & vbCrLf & vbCrLf & _
                                        "1 - Usuario y/o contraseña incorrectos" & vbCrLf & _
                                        "2 - El usuario no está habilitado" & vbCrLf & _
                                        "3 - El usuario no tiene acceso a este módulo" & vbCrLf & _
                                        "4 - El usuario no existe"
            MsgBox(s, MsgBoxStyle.Critical, "Error inicio de sesión")
        Else
            frmEntregaTicket.Show()
            Close()
        End If

    End Sub


    Private Sub btnCerrar_Click(sender As Object, e As EventArgs) Handles btnCerrar.Click
        Close()
    End Sub
End Class
